home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EuroCD 3
/
EuroCD 3.iso
/
Rexx
/
Examples
/
Xtruder_RequestUser.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-06-24
|
1KB
|
30 lines
/*
** 'RequestUser' example
*/
Options Results
Address XTRUDER
RequestUser TITLE '"Hey, dude"' PROMPT '"Do you think Xtruder is great ?"' RESPONSE '"_Bloody hell, YEAH|_I''m not sure|_Nah, it sucks"'
IF RESULT = 1 THEN
RequestUser TITLE '"Me thinks..."' PROMPT '"I couldn''t agree more"'
ELSE IF RESULT = 2 THEN
RequestUser TITLE '"Me thinks..."' PROMPT '"Well, let me convince you some more then"'
ELSE
RequestUser TITLE '"Me thinks..."' PROMPT '"You strongly need a mental examination"'
RequestString TITLE '"Xtruder string request"' PROMPT '"Please enter your favourite virus killer"' MAXBUFLEN 130 RESPONSE '"_I''m finished, Mom|I _won''t tell"'
IF RC = 0 THEN
RequestUser PROMPT '"You entered: 'RESULT'"' RESPONSE '"Did I really ?"'
ELSE
RequestUser PROMPT '"You canceled the requester..."'
RequestNumber TITLE '"Xtruder number request"' MIN 200 MAX 800 NUMBER 666 SHOWDEFAULT PROMPT '"Please enter a number"' RESPONSE '"Continue|Cancel"'
IF RC = 0 THEN
RequestUser PROMPT '"You entered: 'RESULT'"' RESPONSE '"Yup!"'
ELSE
RequestUser PROMPT '"You canceled the requester..."'